'This program sends the display command to the Model 2001.

'The display is GOOD MORNING .

'5/92   DEC

CALL Initialize(21, 0)          ' init as system controller

'--- Setup 2001 commands

   CLS

   CALL Send(16, ":DISP:WIND1:TEXT:STAT ON", Gpib.status%)

   CALL Send(16, ":DISP:WIND1:TEXT:DATA 'GOOD MORNING!' ", Gpib.status%)

   SLEEP 2

   CALL Send(16, ":DISP:WIND1:TEXT:DATA 'HOW ARE YOU TODAY?' ", Gpib.status%)

END